home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / UTIL / TICK2POP.PAS < prev   
Pascal/Delphi Source File  |  1993-03-31  |  2KB  |  63 lines
  1. PROGRAM Tick2Pop;
  2. {╔══════════════════════════════════════════════════════════════════════════╗}
  3. {║ Converts TIC.CFG to PORTAL.TIC                Last changed: 31.03.93  SA ║}
  4. {║                                                                          ║}
  5. {║                         (C) Copyright 1989-93 by                         ║}
  6. {║       Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager        ║}
  7. {║                                                                          ║}
  8. {║ This source can be distributed freely, as long as it is done in a        ║}
  9. {║ lawfull and friendly manner.                                             ║}
  10. {╚══════════════════════════════════════════════════════════════════════════╝}
  11.  
  12. USES Dos, OpString, PoPTypes;
  13.  
  14. VAR
  15.   TickFile : File of TTickArea;
  16.   tf : Text;
  17.   TickFName: PathStr;
  18.   TickAreaRec : TTickArea;
  19.   s,t : String;
  20.  
  21. BEGIN
  22.   WriteLn('Tick to Portal of Power v'+ver) ;
  23.   WriteLn('Copyright (C) 1992-93 by The Portal Team') ;
  24.   WriteLn;
  25.   IF ParamCount=1 THEN TickFName:=ParamStr(1) ELSE TickFName:='TIC.CFG';
  26.   Assign(tf,TickFName);
  27.   Reset(tf);
  28.   IF IoResult=0 THEN
  29.   BEGIN
  30.     Assign(TickFile,'PORTAL.TIC'); Reset(TickFile);
  31.     IF IOResult<>0 THEN ReWrite(TickFile);
  32.     ReadLn(tf,s);
  33.     REPEAT
  34.       IF StUpCase(Copy(s,1,4))='AREA' then
  35.       BEGIN
  36.         FillChar(TickAreaRec, SizeOf(TickAreaRec), 0);
  37.         s:=Copy(s,6,Length(s)-5);
  38.         TickAreaRec.AreaPath:=Trim(AddBackSlash(StUpCase(Copy(s,1,Pos(' ',s)-1))));
  39.         s:=Copy(s,Pos(' ',s)+1,Length(s)-Pos(' ',s));
  40.         TickArearec.AreaName:=Trim(StUpCase(s));
  41.         Write('Area: ',TickAreaRec.AreaName,#13);
  42.         REPEAT
  43.           ReadLn(tf,s);
  44.           IF Copy(s,1,1)=' ' THEN
  45.           BEGIN
  46.             t:=TrimLead(s);
  47.             TickAreaRec.GetFrom[1]:=TickAreaRec.GetFrom[1]+Copy(t,1,Pos(' ',t)-1)+' ';
  48.           END;
  49.         UNTIL Copy(s,1,1)<>' ';
  50.         Write(TickFile,TickAreaRec);
  51.       END ELSE
  52.         ReadLn(tf,s);
  53.     UNTIL EoF(Tf);
  54.     WriteLn;
  55.     Close(TickFile);
  56.     Close(tf);
  57.   END ELSE
  58.   BEGIN
  59.     WriteLn('Can''t find: ',TickFName);
  60.     WriteLn;
  61.   END;
  62. END.
  63.